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-- file Pass4.Mesa 

-- last modified by Satterthwaite, April 19, 1978 11:22 AM 

DIRECTORY 

ComData: FROM "comdata", 
CompilerDefs: FROM "compilerdef s" , 
P4Defs: FROM "p4defs", 
SymDefs: FROM "symdefs", 
TableDefs: FROM "tabledefs". 
TreeDefs: FROM "treedefs"; 

Pass4: PROGRAM 
IMPORTS 

CompilerDefs, TableDefs, TreeDefs, P4Defs, 
dataPtr: ComData 
EXPORTS CompilerDefs » 
PUBLIC 
BEGIN 
OPEN TreeDefs, SymDefs; 



tb: TableDefs. TableBase; 
seb: TableDefs. TableBase; 
ctxb: TableDefs. TableBase; 

tTRUE: TreeLink; 
tFALSE: TreeLink; 



-- tree base address (local copy) 

-- se table base (local copy) 

-- context table base (local copy) 



P4Notify: TableDefs .TableNotifier » 

BEGIN -- called by allocator whenever table area is repacked 

tb *- base[treetype]; 

P4Defs.BCDNotify[base]; P4Def s .DeclNotify[base] ; 

P4Defs.LayoutNotify[base]; 

P4Defs.StmtNotify[base]; 

P4Defs.ExpANotify[base]; P4Def s.ExpBNotify[base] ; RETURN 

END; 



-- intermediate result bookkeeping 
returnRecord. resumeRecord: recordCSEIndex; 



implicitType: CSEIndex; 
implicitBias: INTEGER; 
implicitRep: P4Defs.Repr; 

lockNode: Treelndex; 

-- overall control 



-- assumed type of empty 
-- assumed bias of empty 
-- assumed representation of empty 



P4Unit: PROCEDURE [unit: TreeLink] - 
BEGIN 

node: Treelndex; 
TableDefs.AddNotify[P4Notify]; 
tTRUE *- dataPtr.tCl; tFALSE <r dataPtr.tCO; 
P4Defs.Pass4XInit[]; P4Def s . Ini tBCD[] ; 
node <- GetNode[unit]; 

(tb+node) . son3 *- updatel ist[(tb+node) . son3, Module]; 
f reenode[node]; 
P4Defs.FinishBCD[]; 

TableDefs.DropNotify[P4Notify]; RETURN 
END; 

Module: PRIVATE PROCEDURE [module: TreeLink] RETURNS [TreeLink] 
BEGIN 

node: Treelndex « GetNode[module]; 
savelndex: CARDINAL =» dataPtr. textlndex; 
implicitType <- typeANY; implicitBias ♦- 0; 
resumeRecord <- recordCSENul 1 ; 
dataPtr .textlndex <- (tb+node) . info; 
lockNode <- IF -dataPtr .monitored 

THEN nullTreelndex 

ELSE GetNode[(tb»node),son4]; 
P4Def s .Assign En tries [dataPtr .mainBody] ; 
P4Def s. Ass ignImports[( tb+node) .sonl] ; 
scanl ist[( tb+node) .son5, P4Defs. Dec! Item]; 



implicitRep *- P4Defs.none; 
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P4D0fs.BoclyList[dataPtr.boclyRoot]; 

(tb+node) .son5 ^ update! ist[(tb+node) . son5, P4Def s .DeclUpdate]; 

P4Def s. Process Imports[(tb+n ode) .sonl]; 

(tb+node) .son2 <- P4Def s. ProcessExports[(tb+node) .son2] ; 

f reenode[node] ; 

dataPtr.textlndex *■ savelndex; RETURN [empty] 

END; 



-- initialization code 

CompilerDefs.MakeSwappable[P4Defs.Pass4B, pass4]; 
CompilerDef s .MakeSwappab1e[P4Def s.Pass4D, pass 4]; 
CompilerDef s .MakeSwappable[P4Def s .Pass4L, pass4]; 
CompilerDefs.MakeSwappable[P4Defs.Pass4S, pass4]; 
Compi1erDefs.MakeSwappable[P4Defs.Pass4Xa, pass4]; 
CompilerDefs.MakeSwappab1e[P4Defs.Pass4Xb, pass4]; 

END. 



